home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / Meeting.dxr / 00008_PRINT & Write text file.ls < prev    next >
Encoding:
Text File  |  1998-12-16  |  1.0 KB  |  33 lines
  1. global gMasterData
  2.  
  3. on printButton
  4.   if iAmActivated(gMasterData) then
  5.     getPrintData()
  6.     set vThisField to string(getUserArea(gMasterData)) && "field"
  7.     print(the text of member vThisField)
  8.   else
  9.     alert("Printing is unavailable until an activity is completed.")
  10.   end if
  11. end
  12.  
  13. on getPrintData
  14.   set vThisField to string(getUserArea(gMasterData)) && "field"
  15.   set the text of member vThisField to EMPTY
  16.   set vTempText to EMPTY
  17.   put "---- A Meeting Is Called ----------" & RETURN & RETURN after vTempText
  18.   put getBigString() & RETURN & RETURN after vTempText
  19.   put RETURN after vTempText
  20.   set the text of member vThisField to vTempText
  21. end
  22.  
  23. on getBigString
  24.   set vText to EMPTY
  25.   put the text of member "print1" & RETURN after vText
  26.   put the text of member "meeting field1" of castLib "Shared" & RETURN & RETURN after vText
  27.   repeat with i = 1 to 2
  28.     put line i of field "print2" & RETURN after vText
  29.   end repeat
  30.   put the text of member "meeting field2" of castLib "Shared" & RETURN & RETURN after vText
  31.   return vText
  32. end
  33.